home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_091 / samples / demos / tiny.adl < prev   
Text File  |  1992-05-06  |  2KB  |  58 lines
  1. INCLUDE "standard.adl";
  2.  
  3. NOUN startrm, brightroom;        { Locations in the dungeon }
  4. startrm(LIGHT) = TRUE;        brightroom(LIGHT) = TRUE;
  5.  
  6. cg = ($say "You can't go that way.\n");
  7.  
  8. startrm(LDESC) =
  9.     ($say "You are in a small but comfortable room.  You hardly want ")
  10.     ($say "to leave, but there is a door leading east, if you insist.\n")
  11. ;
  12. startrm (SDESC) = ($say "Comfortable room.\n");
  13. startrm(ACTION) =
  14.     ($miss    cg cg 0          cg 0 0 0 0 0 0)
  15.     ($hit .ME 0  0  brightroom 0  0 0 0 0 0 0)
  16. ;
  17.  
  18. brightroom(LDESC) =
  19.     ($say "You are in a brightly lit room.  The walls sparkle with ")
  20.     ($say "scintillating lights.  There is a darker room to the west.\n")
  21. ;
  22. brightroom(SDESC) = ($say "Bright room.\n");
  23. brightroom(ACTION) =
  24.     ($miss    cg cg cg 0       0 0 0 0 0 0)
  25.     ($hit .ME 0  0  0  startrm 0 0 0 0 0 0)
  26. ;
  27.  
  28. ADJEC red, blue;
  29.  
  30. NOUN red pillow(startrm), blue pillow(startrm);
  31.  
  32. red pillow(LDESC) = ($say "There is a red pillow here.\n");
  33. red pillow(SDESC) = ($say "A red pillow");
  34.  
  35. blue pillow(LDESC) = ($say "There is a blue pillow here.\n");
  36. blue pillow(SDESC) = ($say "A blue pillow");
  37.  
  38. NOUN platinum(brightroom);        bar = platinum;
  39. platinum(LDESC) = ($say "There is a bar of platinum here!\n");
  40. platinum(SDESC) = ($say "A platinum bar");
  41. platinum(ACTION) = 
  42.     (IF ($and ($eq ($verb) drop) ($eq ($loc .ME) ($loc [red pillow]))) THEN
  43.     ($say "The bar falls onto the red pillow, breaking it!  The symbolism ")
  44.     ($say "impresses itself upon you, and you go back to work instead of ")
  45.     ($say "playing these silly games!\n")
  46.     ($spec 3)
  47.     )
  48. ;
  49.  
  50. NOUN SELF(startrm);        SELF(NOTAKE) = TRUE;
  51.  
  52. START =
  53.     (StdInit SELF)
  54. ;
  55.  
  56. DWIMD = ($return (Dwimmer %1));
  57. DWIMI = ($return (Dwimmer %1));
  58.